************ Appendix B: Overall Quality of Governance

****** Table_B_1: Governance
* the main grid-cell dataset: LandCover_GRID_CELL_v9_reduced.dta
use data/LandCover_GRID_CELL_v9_reduced, clear

*** Corruption (V-Dem)

*1) benchmark geo
qui reg v2x_corr predallports53_100km lp_lat_abst i.year, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using output/Table_B_1.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(predallports53_100km lp_lat_abst) replace
qui drop sample

*2) + all other geo vars
qui reg v2x_corr predallports53_100km lp_lat_abst lp_lat_abst frstdays Island landlock_new rivdist_abs_new rugged mountains c.prec_gpcc##c.prec_gpcc irri_impact5 soil suita desert crop pasture forest grass shrub savanna barren water i.year, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using output/Table_B_1.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(predallports53_100km lp_lat_abst) append
qui drop sample

*3) + region dummies
qui reg v2x_corr predallports53_100km lp_lat_abst i.e_regionpol4 i.year, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using output/Table_B_1.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(predallports53_100km lp_lat_abst) append
qui drop sample

*4) + Europeans
qui reg v2x_corr predallports53_100km lp_lat_abst chrstprotpct eur_pct_est_smooth i.e_regionpol4 i.year, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using output/Table_B_1.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(predallports53_100km lp_lat_abst chrstprotpct eur_pct_est_smooth) append
qui drop sample

*5) + GDP
qui reg v2x_corr predallports53_100km lp_lat_abst chrstprotpct eur_pct_est_smooth Maddison_gdppc_1990_estimate_ln i.e_regionpol4 i.year, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using output/Table_B_1.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(predallports53_100km lp_lat_abst chrstprotpct eur_pct_est_smooth) append
qui drop sample

*** Worldwide Governance Indicators (WB)

*6) benchmark geo
qui reg wbgi_first predallports53_100km lp_lat_abst i.year, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using output/Table_B_1.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(predallports53_100km lp_lat_abst) append
qui drop sample

*7) + all other geo vars
qui reg wbgi_first predallports53_100km lp_lat_abst lp_lat_abst frstdays Island landlock_new rivdist_abs_new rugged mountains c.prec_gpcc##c.prec_gpcc irri_impact5 soil suita desert crop pasture forest grass shrub savanna barren water i.year, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using output/Table_B_1.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(predallports53_100km lp_lat_abst) append
qui drop sample

*8) + region dummies
qui reg wbgi_first predallports53_100km lp_lat_abst i.e_regionpol4 i.year, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using output/Table_B_1.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(predallports53_100km lp_lat_abst) append
qui drop sample

*9) + Europeans
qui reg wbgi_first predallports53_100km lp_lat_abst chrstprotpct eur_pct_est_smooth i.e_regionpol4 i.year, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using output/Table_B_1.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(predallports53_100km lp_lat_abst chrstprotpct eur_pct_est_smooth) append
qui drop sample

*10) + GDP
qui reg wbgi_first predallports53_100km lp_lat_abst chrstprotpct eur_pct_est_smooth Maddison_gdppc_1990_estimate_ln i.e_regionpol4 i.year, vce(cluster country_id)
qui gen sample = e(sample)
qui tab country_id if sample == 1, nofreq
qui local countries=r(r)
qui tab year if sample == 1, nofreq
qui local years=r(r)
qui outreg2 using output/Table_B_1.doc, nor noni nonot nocon stats(coef tstat) addstat("Countries", `countries', "Years", `years', "R-squared", e(r2)) addn("*** p<0.01, ** p<0.05, * p<0.1") se bdec(3) keep(predallports53_100km lp_lat_abst chrstprotpct eur_pct_est_smooth) append
qui drop sample

